(gnus-group-enter-directory): Virtual server definition

list wasn't quoted.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index d3e96d28786d76142e15175b867df539898610f0..7a104bd14b7fef89774db6a7b2b2c9da937c2a34 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -5981,7 +5981,7 @@ score file entries for articles to include in the group."
 (defun gnus-group-enter-directory (dir)
   "Enter an ephemeral nneething group."
   (interactive "DDirectory to read: ")
-  (let* ((method (list 'nneething dir (nneething-read-only t)))
+  (let* ((method (list 'nneething dir '(nneething-read-only t)))
         (leaf (gnus-group-prefixed-name
                (file-name-nondirectory (directory-file-name dir))
                method))